home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / GammaPasLib 1.1 / test gamma lib.p < prev    next >
Encoding:
Text File  |  1993-07-20  |  856 b   |  40 lines  |  [TEXT/PJMM]
  1. {-------------------------------------------------------------------------------}
  2. {    Test Gamma by Matthew Xavier Mora                                                        }
  3. {-------------------------------------------------------------------------------}
  4. {    Code to show off Matt Slot's for Pascal users                                                }
  5. {                                                                                                    }
  6. {    mxmora@unix.sri.com                                                                        }
  7. {    07-20-93                                                                                        }
  8. {-------------------------------------------------------------------------------}
  9. program testgamma;
  10.  
  11.     uses
  12.         gammaPasLibIntf;
  13.     var
  14.         delaytime: longint;
  15.         oe: integer;
  16.         tempBool: Boolean;
  17.  
  18.  
  19. begin
  20.     delaytime := 2;
  21.  
  22.     if not GammaAvail then
  23.         begin
  24.             Showtext;
  25.             writeln('Gamma not available');
  26.             exittoshell;
  27.         end;
  28.  
  29.     oe := SetupGammaTools;
  30.  
  31.     DelayFadeToBlack(delaytime);
  32.     FadeFromBlack(2);
  33.  
  34.     FadeToBlack(2);
  35.     DelayFadeFromBlack(delaytime);
  36.  
  37.  
  38.     oe := DisposeGammaTools;
  39.  
  40. end.